﻿Public Class Clientes

    Private Conexion As New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Yanapay;Data Source=LANEGRA\SQLEXPRESS")

    Public Sub NuevoCliente(ByVal paramDni As String, ByVal paramNombre As String, ByVal paramDomicilio As String, ByVal paramFecha As String, ByVal paramTelefono As String, ByVal paramCelular As String, ByVal paramEmail As String, ByVal paramUsuario As String, ByVal paramPassword As String)

        Dim comando As New OleDb.OleDbCommand() 'Este objeto se encarga de ejecutar consultas sql a la base de datos
        comando.CommandType = CommandType.StoredProcedure 'El comando ejecutará un procedimiento almacenado
        comando.Connection = Me.Conexion 'Indicamos al objeto comando a donde se conectará a través del objeto Conexion

        comando.CommandText = "insertCliente" 'El nombre del procedimiento almacenado
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramDni", paramDni))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramNombre", paramNombre)) 'Agregamos a la colección de parámetros los parametros que necesita el procedimiento almacenad
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramDomiclio", paramDomicilio))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramFecha", paramFecha))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramTelefono", paramTelefono))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramCelular", paramCelular))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramEmail", paramEmail))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramUsuario", paramUsuario))
        comando.Parameters.Add(New OleDb.OleDbParameter("@paramPassword", paramPassword))

        Conexion.Open() 'Abrimos la conexion a la base de datos
        comando.ExecuteNonQuery() 'Ejecutamos la consulta SQL. No devuelve valores, ya que es un insert
        MsgBox("Registrado Exitosamente", MsgBoxStyle.OkOnly, "Aviso")
        Conexion.Close() 'Cerramos la conexion
    End Sub

End Class
